﻿Imports System.Data.SqlClient
Imports System.Data

Partial Class _Default
    Inherits System.Web.UI.Page
    Private dt As New DataTable
    
    Protected Sub btncargar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btncargar.Click
        If (Len(txtlocaldidad.Text) = 0) Then
            MsgBox("EL Nombre de la localidad es un campo obligatorio", MsgBoxStyle.Exclamation)
            txtlocaldidad.Focus()
            Exit Sub
        End If
        Dim oLocalidadesNegocios As New Negocio.NLocalidad
        Dim oLocalidad As New Entidad.ELocalidad
        oLocalidad.nombreloc = UCase(txtlocaldidad.Text)
        oLocalidad.codpostal = UCase(txtcp.Text)
        oLocalidad.provin = UCase(txtprovincia.Text)
        oLocalidad._pais = UCase(txtpais.Text)
        Try
            If oLocalidadesNegocios.cargarLocalidad(oLocalidad) Then
                MsgBox("Carga Exitosa de localidad.", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
        mostrar()
        Nuevo()
    End Sub
    Protected Sub btnmodificar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnmodificar.Click
        If (Len(txtlocaldidad.Text) = 0) Then
            MsgBox("EL Nombre de la localidad es un campo obligatorio", MsgBoxStyle.Exclamation)
            txtlocaldidad.Focus()
            Exit Sub
        End If
        Dim oLocalidadesNegocio As New Negocio.NLocalidad
        Dim oLocalida As New Entidad.ELocalidad
        oLocalida.nombreloc = UCase(txtlocaldidad.Text)
        oLocalida.codpostal = UCase(txtcp.Text)
        oLocalida.provin = UCase(txtprovincia.Text)
        oLocalida._pais = UCase(txtpais.Text)
        Try
            If oLocalidadesNegocio.modificar(oLocalida) Then
                MsgBox("Modificacion Exitosa de localidad.", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If


        Catch ex As Exception
            MsgBox("Carga fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
        mostrar()
        Nuevo()
    End Sub
    Protected Sub btnbuscar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnbuscar.Click
        If RadioButton1.Checked Then
            Dim oLocalidadesNegocio As New Negocio.NLocalidad
            Dim oLocalida As New Entidad.ELocalidad
            GVbusqueda.DataSource = oLocalidadesNegocio.mostrarcodpostal(txtbusqueda.Text)
            GVbusqueda.DataBind()
        Else
            If RadioButton2.Checked Then
                Dim oLocalidadesNegocio As New Negocio.NLocalidad
                Dim oLocalida As New Entidad.ELocalidad
                GVbusqueda.DataSource = oLocalidadesNegocio.mostrarnonbre(txtbusqueda.Text)
                GVbusqueda.DataBind()
                txtbusqueda.Text = ""
            End If
        End If
        mostrar()

        Nuevo()
    End Sub
    Protected Sub Nuevo()
        RadioButton1.Checked = False
        RadioButton2.Checked = False
        txtlocaldidad.Text = ""
        txtcp.Text = ""
        txtprovincia.Text = ""
        txtpais.Text = ""
        txtbusqueda.Text = ""
    End Sub
    Protected Sub btncancelar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btncancelar.Click
        txtlocaldidad.Text = ""
        txtcp.Text = ""
        txtprovincia.Text = ""
        txtpais.Text = ""
        txtbusqueda.Text = ""
    End Sub
    Protected Sub GVbusqueda0_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles GVGRILLA.SelectedIndexChanged
        txtlocaldidad.Text = GVGRILLA.Rows(GVGRILLA.SelectedIndex).Cells(1).Text
        txtcp.Text = GVGRILLA.Rows(GVGRILLA.SelectedIndex).Cells(2).Text
        txtprovincia.Text = GVGRILLA.Rows(GVGRILLA.SelectedIndex).Cells(3).Text
        txtpais.Text = GVGRILLA.Rows(GVGRILLA.SelectedIndex).Cells(4).Text
    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        txtlocaldidad.Focus()
        mostrar()
    End Sub


    Protected Sub btneliminar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btneliminar.Click
        If (Len(txtlocaldidad.Text) = 0) Then
            MsgBox("EL Nombre de la localidad es un campo obligatorio", MsgBoxStyle.Exclamation)
            txtlocaldidad.Focus()
            Exit Sub
        End If
        Dim oLocalidadesNegocios As New Negocio.NLocalidad
        Dim oLocalidad As New Entidad.ELocalidad
        oLocalidad.nombreloc = UCase(txtlocaldidad.Text)
        Try
            If oLocalidadesNegocios.eliminarLocalidad(oLocalidad) Then
                MsgBox("Eliminacion Exitosa .", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Eliminación fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
        mostrar()
        Nuevo()
    End Sub
    Protected Sub mostrar()
        Dim oLocalidadesNegocio As New Negocio.NLocalidad
        GVgrillamostrar.DataSource = oLocalidadesNegocio.mostrarlocalid
        GVgrillamostrar.DataBind()
    End Sub

   
End Class